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EEEEEEEEEE Xx XX TTTTTTTTTT HH HH DDDDDDDD RRRRRRRR 
EEEEEEEEEE Xx XX TTTTTTTTTT HH HH DDDDDDDD RRRRRRRR 
EE XX XX TT HH HH DD DD RR RR 
EE XX Xa TT HH HH DD DD RR RR 
EE XX = XK TT HH HH DD DD RR RR 
EE XX XX TT HH HH DD DD RR RR 
EEEEEEEE Xx TT HHHHHHHHHH =D DD RRRRRRRR 
EEEEEEEE XX TT HHHHHHHHHH DD DD RRRRRRRR 
EE XX = XX TT HH HH DD DD RR RR 
EE XX = XX TT HH HH DD DD RR RR 
EE xx XX TT HH HH DD DD RR RR eee 
EE Xx XX TT HH HH DD DD RR RR coos 
EEEEEEEEEE Xx XX TT HH HH DDDDDDDD RR RR eos 
EEEEEEEEEE Xx XX TT HH HH DDDDDDDD RR RR eee 
LL III] SSSSSSSS 
LL HII SSSSSSSS 
LL II SS 
LL I] SS 
LL I] $$ 
LL I] $s 
LL I] SSSSSS 
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LL I] SS 
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MODULE EXTHDR ( LANG UAGE, ( ), 
eS? 


BEGIN 


! 

pean Tse aa ARE ERE ES 
® 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 

ie DIGITAL EQUIPMENT _GORPORATION, MAYNARD. MASSACHUSETTS. 

ie ALL RIGHTS RESERV 

ie THIS SOFTWARE I$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ie ONLY IN ACCOR DANCE | WITH TH MS OF SUCH LICENSE AND WITH H THE 

ie INCLUSION OF THE ABOVE CO PyRIGHT NOTICE. THIS SOFTWARE OR OTHER 

ie COPIES THEREOF faye NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE T 0 ANY 

ie OTHER PERSON. NO TITLE TO aHD OWNERSHIP OF THE SOFTWARE IS HEREBY 

is TRANSFERRED. 

ies THE INFORMATION IN THIS SOFTWARE IS SUBJE 

i# AND SHOULD NOT BE CONSTRUED AS A COMM 

ix CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBILIT 

is SOFTWARE ON EQUIPMENT WHICH 1S WN 
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4 io 
0 FACILITY: F11ACP Structure Level 1 
; ABSTRACT: 
0 i This routine creates an extension file header for the given file 
O36 header. 
2 ? : ENVIRONMENT: 
4 ah i Stem e7 operating system, including privileged system services 
2 7 ; and internal exec routines. 
45 5 i= 
23 5 i 
$8 3 AUTHOR: Andrew C. Goldstein, CREATION DATE: 27-Jul-1977 10:15 
3} 39 | MODIFIED BY: 
§ 53 i v02-001 LMP000S ark Pilant, 29-Dec-1981 15:00 
? 34 : Add support for Bs NeGral windows. 
5 5 1! A0100 acG0001 Andrew C. Goldstein 10-Oct-1978 20:01 
6 36 Previous revision history moved to F11A. 
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1$-sen-1984 1:05:41 vateyt 
GLOBAL ROUTINE EXTEND_HEADER (OLD_HEADER, FCB) = 


'e¢ 


i 
FUNCTIONAL DESCRIPTION: 


an 


This routine creates an extension file header for the given file 
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i 

i 

i 

header. 

i 

i CALLING SEQUENCE: 

EXTEND_HEADER (ARG1, ARG2) 

i INPUT ay pbb eb 

ARG1: address of present last file header 

ARG2: address of present last FCB or 0 

i IMPLICIT INPUTS: 

ere WINDOW: address of file window or 0 

PRIMARY_FCB: primary FCB of file 

CURRENT_VCB: address of VCB of volume 

i QUTPUT PARAMETERS: 

NONE 

i IMPLICIT OUTPUTS: 

NONE 

i ROUTINE VALUE: 

address of new file header 

i SIDE eerectss 

g file header created, window turned, FCB created 

ie 

BEGIN 

MAP 
OLD_HEADER : REF BBLOCK, ! file header arg 
FCB : REF BBLOCK; ! FCB arg 

LOCAL 
OLD_FID : BBLOCK CFID NGTH], ! file ID of old header 
EXT_FID : BBLOCK LFID NGTHJ, | file ID of new header 
VEN, | sagen “tile VBN of new header 
LBN, BN of new neoder 
MAP_AREA : REF BBLOCK, ile header map a 
NEW_HEADER : REF BBLOCK; ! address of new tile. header 

EXTERNAL 
CLEANUP_FLAGS BITVECTOR, } new. action flags 
USER_STATUS VECTOR, laut block for user 
PRIMARY_FCB : REF BBLOCK, einary at: of file 
CURRENT WINDOW : REF BBLOCK, ! find dow of ite 
CURRENT _VCB : REF BBLOCK, ! VCB of volum 
HEADER_CBN, ' LBN of current file header 
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NEW_FID; file number of new extension header 
EXTERNAL ROUTINE 

NIT_FCB initialize FCB 

TURN-WINGOW, upeste window 

CHECRSUM che 


cksum f te header 
mark header for writeback 
create a new file io and header 
discard a block buffer 
reassign buffer LBN 
write file header 
read file header 
create an extension FCB 


MARK_DIRTY 
CREATE HEADER, 
INVALIBATE, 
RESET_LBN 
WRITE-HEADER, 
READ_READER, 
MAKE ~EXTFCB: 


eee 


' Save the file ID of the current last header. If the file is accessed, fix 
! up the FCB if it is not the primary and turn the window to include blocks 
: from the header if possible. Then prepare the old header for write-back. 


OLD_FIDCFIDSW_NUM) = -OLD_HEADERE FHI SW_FID_NUMJ; 
OLD-FIDCFIDSW-SEQ) = :OLD-HEADERCFH1$W~FID~SEQ]; 
OLD“FIDEFIDSWIRVNI = 0; 


-PRIMARY 


0 AND .FCB NEQ FCB 
FCB, .FCB, .OLD_HEADER); 


B NEQ C 
THEN KERNEL_CALL (INI 


IF . CURRENT WINDOW NEQ 0 
THEN IF NOT .CURRENT WINDOWCWCBSV_ CATHEDRAL) 


9 
1ergeb= 138s 93:95i33 Peed ShAS Fea scY tis SheaexrHor.e32: 


THEN KERNEL_CALL (TURN_WINDOW, .CORRENT_WINDOW, .OLD_HEADER, .PRIMARY_FCBCFCBSL_FILESIZEJ, .FCBCFCBSL_STVBNI 


CHECKSUM (.OLD_HEADER); 


! Now create the new file ID. Map and read the corresponding block in the 
} index file to extract the file sequence number; then punt the buffer. 


HEADER = CREATE_HEADER (); 
“FIDEFTpSu_ Nun = “NEW _HEADERCEH1SW_F1D_NUM ; 
FIDCFIDSW-SEQ) = .NEW-HEADERCFH1$W_FID~SEQ); 


!' Get back the old file header, which may or may not have been written out 
' due to buffer pool thrashing. rheck the segment number for overflow. 
: Plug in the header extension Linkage and write it. 


ER = READ HEADER (OLD_ 
= .NEW HEADER + .NEW 


FI a 

“HE H 
CFT EX_SEGNUM) GE 
KT 
XT 


): 
1$8_MPOFFSETJ#2; 
EA ) 

ERR EX! (SS$"HEADERFULL) ; 
AREATER W_EX_FILNUA = .E 
AREACFMISW-EX-FILSEQ) = .E 
NEW_HEADER); 

R (J; 
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N 
04-000 1E$eer9Hs GU:05:4 YARLTABhLRREREC HAS EACsexron.osesk22* oo v4: 
' 


NEW_FID = 0; 


! We now build the new file header over the old one in the same buffer, thus 
; ; ng the attributes. 


header extension is complete 


RESET_LBN (.NEW HEADER ; 
MARK_BIRTY (.NEQ HEADER): 
HEADER_LBM = .LBR; 


NEW _HEADER(F 


NF Se whet iP) 


Nun } = .EXT_FIOCEIOSW_NUM); 


H1$W_FID 
9 NEW-HEADERCFH1$W-FID-SEQ) = .EXT~FIDCFID$W~SEQ); 
91 MAP_AREACFM1$B8_EX_ SEGNUN = ,MAP_AREACFM1$B_EX_SEGNUM] + 1; 
3 MAP~AREACFM1 SW HEX: FILNUM] = = 6; 
9 MAP “AREA EMI SUrE KELESER) = 
34 MAP~AREALFM1$8- -fNo 


CDOOCOCCOOOO OOO DODO OO 
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CHSFILL (0, .MAP_AREACFM1SB_AVAILJ*2, .MAP_AREA+FM1$C_POINTERS) ; 
Finally create an extension FCB if the file is accessed. 
IF .FCB NEQ 0 
THEN KERNEL_CALL (MAKE_EXTFCB, .NEW_HEADER, .FCB, 2); 
RETURN (.NEW_HEADER) ; 
1 END; ! end of routine EXTEND_HEADER 
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TITLE EXTHDR 
-IDENT \V04-000\ 


eEXTRN Er piees USER STATUS 


SEXTRN PRIMARY-FCB, CURRENT WINDOW 
ZEXTRN CURRENT-VCB, HEA 


a CHECKSUM 
~EXTRN MARK DIRTY, CREATE eee 


“EXTRN WRITE tes READ HEADER 
SEXTRN MAKE eEKTF Ce. * SYSSCAKRNL 


-PSECT SCODES,NOWRT,2 


rma 
4 


OOFC 00000 .ENTRY EXTEND_HEADER, aseve R2,R3,R4,R5,R6,R7 : 0377 
57 000000006 9F H 002 ROVAR GFSYSSCAKRNL , ; 
10 ¢ 00 SUBL2 #16, : 
4 ac 7D mova UD swEADER. -f2 > 0454 
08 AE 2 a2 00 0001 MOVL (R2 : 
C AF B4 0001 CLRW Oy Drips oe + 0456 
5 p 1 TSTL =O > 0458 
1 1A BEQL Ss ; 
0000G CF 33 : 1¢ CPL RS. PRIMARY _FCB 
4 bd 853 PUSHL R > 0459 


10 
16-5 =1984 01:03: VAX=11 BLiss-32 V4.0-7% p 
eae ee esate ALS feacch tig cnezexrnor.e32:9°%" coe 


DD ; 3 : “ 

DD PUSHL # : ; 

bb 9 PUSHL SP : : 

00006 i F g PUSHAB INIT_FCB : : 

7 5 F F CALLS #5, SYSSCMKRNL : : 

1 00006 CF p 2 1$ HOVE RRENT_WINDOW, R1 + 0461 : 

18 0B «At 06 E 9 BBS #6, 11(R1), 2$ : 046 ; 
50 00866 CF DO 4 OVL § PRIMARY_FCB, RO : ; 

AO 0D 46 PUSHL R : : 

6 BB 0004 PUSHR  #*M<R1,R2> : ; 

DD 00048 PUSHL #6 : : 

E bb 4D PUSHL SP : : 

00006 CF 9F O004F PUSHAB TURN WINDOW : : 

67 7 FB 23 CALLS #7, SYSSCMKRNL : : 

2 DD 000 6 2s PUSHL + 0465 : 

0006 CF 1 FB 0005 CALLS #1, CHECKSUM : : 
0006 cr 0 FB 090 CALLS #0, CREATE_HEADER + 0471 F 
& D 6¢ MOVL RO, NEW_HEADER : : 

of 02 A6 8 006 MOVL § 2(NEW HEADER), EXT_FID ; 0472 : 

4 00006 ct DO 00069 MOVL § HEADER_LBN, LBN + 0474 : 

6 DD 000 PUSHL NEW_HEADER : 0475 : 

00006 CF Q1 FB 000 CALLS #1, INVALIDATE : : 
3 bb 007 PUSHL R3 : 0482 : 

OC AE 9F 00077 PUSHAB OLD_FID ; ; 

00006 cf g FB OOO7A CALLS #2, READ_HEADER ; : 
& DO O007F MOVL RO, NEW READER : : 

50 01 Ab 9A 00082 MOVZBL 1 (NEW HEADER), RO : 0483 ; 

52 6640 3 00086 MOVAW (NEW_READER)CR J. MAP_AREA ; : 

FF OF 91 OO08A CMPB  (MAP"AREA), #2 + 0484 F 
1F OO8E BLSSU 3$ F ; 

08c8 8F BF 000 CHMU #2248 : 0485 : 

04 00094 RET : ; 

02 A2 6E 00 00095 3s: MOVL EXT_FID, 2(MAP_AREA) + 0486 : 
56 DD 00099 PUSHL NEWTHEADER + 0489 : 

0000G CF 01 FB 0098 CALLS #1, CHECKSUM : : 
00006 CF 00 FB OA CALLS #0, WRITE_HEADER + 0490 : 
00006 CF D4 000A CLRL NEW_FID + 0491 : 

4 OD 9 a9 PUSHL LBN : 0497 3 

6 DD O00AB PUSHL NEW_HEADER : : 

00006 CF 9¢ fB AD CALLS #2, RESET LBN ; : 
DD 0008 PUSHL NEW_HEADER : 0498 : 

900 G CF g1 F B4 CALLS #1, MARK DIRTY ; : 
G CF 4 D B9 MOVL LBN, HEADER LBN : 0499 : 

02 AG 6 p 0B MOVL EXT_FID, 2(REW_HEADER) : 0501 : 

62 96 000C INCB (MAP_AREA) + 0504 : 

Ae 04 000 CLRL (MAP_AREA) : 0505 : 

Ae 94 000C7 CLRB (MAP~AREA) : 0507 : 

50 A2 9A OOOCA MOVZBL 9(MAP"AREA), RO : 0509 : 

0 4 MULL ase R 3 3 

50 00 6 ait C 0000 mOvCS #0, (SP), #0, RO, 10(MAP_AREA) : : 
8 A 0 D TSTL FCB : 0514 : 

} DB BEQL 84 : : 

DD 000DD PUSHL #2 : 0515 : 

08 AC DD 000DF PUSHL FCB ; : 
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§ DD ce PUSHL BEY EAGER : 
E BD OO0E PUSH 
00006 cr oF 3} PUSHAB ; 
67 $ FB EC CALLS as. » fyepemenn : 
0 B EF 4$: MOVL HEADER, R 3 O33 
4 F2 RET 3 0519 
; Routine Size: 243 bytes, Routine Base: S$CODE$ + 0000 
7 1 
ee 
09 522 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 243 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
woousese Symbols -<------ Pages Processing 
File Total Loaded Percent Mai. ped Time 
~$255$DUA28: CSYSLIBILIB.L32;1 18619 18 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LISS:EXTHOR/OBJ=OBJ$:EXTHDR MSRC$:EXTHDR/UPDATE=(ENHS:EXTHDR) 
Size: ; 243 goge + 0 data bytes 
Elapsed Ae igt- 


ponery © Used: 129 pages 
Compilation Complete 
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